VERSION 5.00
Object = "{C4847593-972C-11D0-9567-00A0C9273C2A}#8.0#0"; "crviewer.dll"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{B3FB64BF-91F9-11D7-A482-0008A14158BC}#2.22#0"; "ITGControls.ocx"
Begin VB.Form frmMaintSupply 
   BackColor       =   &H00F7D9C2&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   7800
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   11820
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MDIChild        =   -1  'True
   ScaleHeight     =   7800
   ScaleWidth      =   11820
   ShowInTaskbar   =   0   'False
   Begin ITGControls.ITGTab SSTab1 
      Height          =   2760
      Left            =   0
      TabIndex        =   87
      Top             =   4695
      Width           =   11625
      _ExtentX        =   20505
      _ExtentY        =   4868
      TabCount        =   7
      TabCaption(0)   =   "     Activity     "
      TabContCtrlCnt(0)=   11
      Tab(0)ContCtrlCap(1)=   "txtLeadTime"
      Tab(0)ContCtrlCap(2)=   "txtAdjustment"
      Tab(0)ContCtrlCap(3)=   "txtPurchase"
      Tab(0)ContCtrlCap(4)=   "txtMaximum"
      Tab(0)ContCtrlCap(5)=   "txtMinimum"
      Tab(0)ContCtrlCap(6)=   "txtInitial"
      Tab(0)ContCtrlCap(7)=   "txtBalance"
      Tab(0)ContCtrlCap(8)=   "txtIssues"
      Tab(0)ContCtrlCap(9)=   "txtReorderPt"
      Tab(0)ContCtrlCap(10)=   "txtReorder"
      Tab(0)ContCtrlCap(11)=   "Label4"
      TabCaption(1)   =   "     Components     "
      TabContCtrlCnt(1)=   1
      Tab(1)ContCtrlCap(1)=   "dtgC"
      TabCaption(2)   =   "     History     "
      TabContCtrlCnt(2)=   3
      Tab(2)ContCtrlCap(1)=   "cmdHistory"
      Tab(2)ContCtrlCap(2)=   "dtgHistory"
      Tab(2)ContCtrlCap(3)=   "Frame2"
      TabCaption(3)   =   "     Groupings     "
      TabContCtrlCnt(3)=   30
      Tab(3)ContCtrlCap(1)=   "txtG10D"
      Tab(3)ContCtrlCap(2)=   "txtG10"
      Tab(3)ContCtrlCap(3)=   "txtG9D"
      Tab(3)ContCtrlCap(4)=   "txtG8D"
      Tab(3)ContCtrlCap(5)=   "txtG7D"
      Tab(3)ContCtrlCap(6)=   "txtG6D"
      Tab(3)ContCtrlCap(7)=   "txtG9"
      Tab(3)ContCtrlCap(8)=   "txtG8"
      Tab(3)ContCtrlCap(9)=   "txtG7"
      Tab(3)ContCtrlCap(10)=   "txtG6"
      Tab(3)ContCtrlCap(11)=   "txtG5D"
      Tab(3)ContCtrlCap(12)=   "txtG5"
      Tab(3)ContCtrlCap(13)=   "txtG4D"
      Tab(3)ContCtrlCap(14)=   "txtG3D"
      Tab(3)ContCtrlCap(15)=   "txtG2D"
      Tab(3)ContCtrlCap(16)=   "txtG1D"
      Tab(3)ContCtrlCap(17)=   "txtG4"
      Tab(3)ContCtrlCap(18)=   "txtG3"
      Tab(3)ContCtrlCap(19)=   "txtG2"
      Tab(3)ContCtrlCap(20)=   "txtG1"
      Tab(3)ContCtrlCap(21)=   "cmdPickG1"
      Tab(3)ContCtrlCap(22)=   "cmdPickG2"
      Tab(3)ContCtrlCap(23)=   "cmdPickG3"
      Tab(3)ContCtrlCap(24)=   "cmdPickG4"
      Tab(3)ContCtrlCap(25)=   "cmdPickG5"
      Tab(3)ContCtrlCap(26)=   "cmdPickG10"
      Tab(3)ContCtrlCap(27)=   "cmdPickG9"
      Tab(3)ContCtrlCap(28)=   "cmdPickG8"
      Tab(3)ContCtrlCap(29)=   "cmdPickG7"
      Tab(3)ContCtrlCap(30)=   "cmdPickG6"
      TabCaption(4)   =   "     Warehouses     "
      TabContCtrlCnt(4)=   2
      Tab(4)ContCtrlCap(1)=   "cmdWHBalance"
      Tab(4)ContCtrlCap(2)=   "lvwList"
      TabCaption(5)   =   "     UOM     "
      TabContCtrlCnt(5)=   9
      Tab(5)ContCtrlCap(1)=   "txtHeight"
      Tab(5)ContCtrlCap(2)=   "txtWidth"
      Tab(5)ContCtrlCap(3)=   "txtLength"
      Tab(5)ContCtrlCap(4)=   "txtArea"
      Tab(5)ContCtrlCap(5)=   "txtMasterBox"
      Tab(5)ContCtrlCap(6)=   "txtNetWeight"
      Tab(5)ContCtrlCap(7)=   "txtGrossWeight"
      Tab(5)ContCtrlCap(8)=   "txtCBM"
      Tab(5)ContCtrlCap(9)=   "Frame4"
      TabCaption(6)   =   "     Budget     "
      TabContCtrlCnt(6)=   1
      Tab(6)ContCtrlCap(1)=   "dtgBudget"
      TabTheme        =   2
      ActiveTabBackStartColor=   16250865
      ActiveTabBackEndColor=   16243138
      InActiveTabBackStartColor=   16243138
      InActiveTabBackEndColor=   16243138
      BeginProperty ActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty InActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      OuterBorderColor=   4210752
      TopLeftInnerBorderColor=   4210752
      BottomRightInnerBorderColor=   4210752
      DisabledTabBackColor=   16243138
      DisabledTabForeColor=   -2147483630
      Begin MSDataGridLib.DataGrid dtgBudget 
         Height          =   2445
         Left            =   -75000
         TabIndex        =   74
         Top             =   315
         Width           =   11625
         _ExtentX        =   20505
         _ExtentY        =   4313
         _Version        =   393216
         HeadLines       =   1
         RowHeight       =   15
         FormatLocked    =   -1  'True
         BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ColumnCount     =   5
         BeginProperty Column00 
            DataField       =   ""
            Caption         =   "Type"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column01 
            DataField       =   ""
            Caption         =   "Period"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column02 
            DataField       =   ""
            Caption         =   "Volume"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column03 
            DataField       =   ""
            Caption         =   "Value"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column04 
            DataField       =   ""
            Caption         =   "Variance"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0 
            BeginProperty Column00 
               ColumnWidth     =   1785.26
            EndProperty
            BeginProperty Column01 
               ColumnWidth     =   3674.835
            EndProperty
            BeginProperty Column02 
               ColumnWidth     =   1530.142
            EndProperty
            BeginProperty Column03 
            EndProperty
            BeginProperty Column04 
               ColumnWidth     =   1755.213
            EndProperty
         EndProperty
      End
      Begin ITGControls.ITGTextBox txtHeight 
         Height          =   285
         Left            =   -71745
         TabIndex        =   71
         Top             =   1695
         Width           =   2565
         _ExtentX        =   4313
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         Label           =   "Height"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelForeColor  =   0
         LabelWidth      =   1100
         TextBoxWidth    =   1405
      End
      Begin ITGControls.ITGTextBox txtWidth 
         Height          =   285
         Left            =   -71745
         TabIndex        =   70
         Top             =   1380
         Width           =   2565
         _ExtentX        =   4313
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         Label           =   "Width"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelForeColor  =   0
         LabelWidth      =   1100
         TextBoxWidth    =   1405
      End
      Begin ITGControls.ITGTextBox txtLength 
         Height          =   285
         Left            =   -71745
         TabIndex        =   69
         Top             =   1065
         Width           =   2565
         _ExtentX        =   4313
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         Label           =   "Length"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelForeColor  =   0
         LabelWidth      =   1100
         TextBoxWidth    =   1405
      End
      Begin ITGControls.ITGTextBox txtArea 
         Height          =   285
         Left            =   -71745
         TabIndex        =   68
         Top             =   750
         Width           =   2565
         _ExtentX        =   4313
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         Label           =   "Area"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelForeColor  =   0
         LabelWidth      =   1100
         TextBoxWidth    =   1405
      End
      Begin ITGControls.ITGTextBox txtMasterBox 
         Height          =   285
         Left            =   -74760
         TabIndex        =   67
         Top             =   1695
         Width           =   2790
         _ExtentX        =   4710
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         Label           =   "Master Box"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelForeColor  =   0
         LabelWidth      =   1320
         TextBoxWidth    =   1410
      End
      Begin ITGControls.ITGTextBox txtNetWeight 
         Height          =   285
         Left            =   -74760
         TabIndex        =   66
         Top             =   1380
         Width           =   2790
         _ExtentX        =   4710
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         Label           =   "Net Weight"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelForeColor  =   0
         LabelWidth      =   1320
         TextBoxWidth    =   1410
      End
      Begin ITGControls.ITGTextBox txtGrossWeight 
         Height          =   285
         Left            =   -74760
         TabIndex        =   65
         Top             =   1065
         Width           =   2790
         _ExtentX        =   4710
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         Label           =   "Gross Weight"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelForeColor  =   0
         LabelWidth      =   1320
         TextBoxWidth    =   1410
      End
      Begin ITGControls.ITGTextBox txtCBM 
         Height          =   285
         Left            =   -74760
         TabIndex        =   64
         Top             =   750
         Width           =   2790
         _ExtentX        =   4710
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         Label           =   "CBM"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelForeColor  =   0
         LabelWidth      =   1320
         TextBoxWidth    =   1410
      End
      Begin VB.Frame Frame4 
         BackColor       =   &H00F7D9C2&
         Height          =   1845
         Left            =   -68970
         TabIndex        =   91
         Top             =   495
         Width           =   4695
         Begin MSDataGridLib.DataGrid dtgUnit 
            Height          =   1215
            Left            =   60
            TabIndex        =   73
            Top             =   570
            Width           =   4575
            _ExtentX        =   8070
            _ExtentY        =   2143
            _Version        =   393216
            HeadLines       =   1
            RowHeight       =   15
            FormatLocked    =   -1  'True
            BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ColumnCount     =   3
            BeginProperty Column00 
               DataField       =   "cUnit"
               Caption         =   "Unit"
               BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                  Type            =   1
                  Format          =   "#,##0.00"
                  HaveTrueFalseNull=   0
                  FirstDayOfWeek  =   0
                  FirstWeekOfYear =   0
                  LCID            =   1033
                  SubFormatType   =   1
               EndProperty
            EndProperty
            BeginProperty Column01 
               DataField       =   "nFactor"
               Caption         =   "Factor"
               BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                  Type            =   0
                  Format          =   ""
                  HaveTrueFalseNull=   0
                  FirstDayOfWeek  =   0
                  FirstWeekOfYear =   0
                  LCID            =   1033
                  SubFormatType   =   0
               EndProperty
            EndProperty
            BeginProperty Column02 
               DataField       =   "cRemarks"
               Caption         =   "Remarks"
               BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                  Type            =   0
                  Format          =   ""
                  HaveTrueFalseNull=   0
                  FirstDayOfWeek  =   0
                  FirstWeekOfYear =   0
                  LCID            =   1033
                  SubFormatType   =   0
               EndProperty
            EndProperty
            SplitCount      =   1
            BeginProperty Split0 
               BeginProperty Column00 
                  ColumnWidth     =   1049.953
               EndProperty
               BeginProperty Column01 
                  ColumnWidth     =   1110.047
               EndProperty
               BeginProperty Column02 
                  ColumnWidth     =   1964.976
               EndProperty
            EndProperty
         End
         Begin ITGControls.ITGTextBox txtPrimaryUnit 
            Height          =   285
            Left            =   150
            TabIndex        =   72
            Top             =   195
            Width           =   2685
            _ExtentX        =   4524
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Label           =   "Primary Unit"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelForeColor  =   0
            LabelWidth      =   1200
            TextBoxWidth    =   1425
         End
      End
      Begin ITGControls.ITGCommandButton cmdWHBalance 
         Height          =   315
         Left            =   -74940
         TabIndex        =   63
         Top             =   2400
         Width           =   1725
         _ExtentX        =   3043
         _ExtentY        =   556
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Caption         =   "Balance Info >>"
      End
      Begin MSComctlLib.ListView lvwList 
         Height          =   2040
         Left            =   -75000
         TabIndex        =   62
         Top             =   300
         Width           =   11625
         _ExtentX        =   20505
         _ExtentY        =   3598
         View            =   3
         LabelWrap       =   -1  'True
         HideSelection   =   -1  'True
         FullRowSelect   =   -1  'True
         GridLines       =   -1  'True
         HotTracking     =   -1  'True
         _Version        =   393217
         ForeColor       =   -2147483640
         BackColor       =   -2147483643
         BorderStyle     =   1
         Appearance      =   0
         NumItems        =   12
         BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Text            =   "Warehouse"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            SubItemIndex    =   1
            Text            =   "Initial"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            SubItemIndex    =   2
            Text            =   "Purchase"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            SubItemIndex    =   3
            Text            =   "Sales"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            SubItemIndex    =   4
            Text            =   "Production (FG)"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            SubItemIndex    =   5
            Text            =   "Production (BM)"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            SubItemIndex    =   6
            Text            =   "Sample/Demo"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(8) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            SubItemIndex    =   7
            Text            =   "Issues"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(9) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            SubItemIndex    =   8
            Text            =   "Back Order"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(10) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            SubItemIndex    =   9
            Text            =   "Adjustment"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(11) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            SubItemIndex    =   10
            Text            =   "Reserved"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(12) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            SubItemIndex    =   11
            Text            =   "Balance"
            Object.Width           =   2540
         EndProperty
      End
      Begin ITGControls.ITGTextBox txtG10D 
         Height          =   285
         Left            =   -67125
         TabIndex        =   61
         Top             =   1770
         Width           =   2880
         _ExtentX        =   4974
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Label           =   "ITGtext"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   0
         TextBoxWidth    =   2820
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtG10 
         Height          =   285
         Left            =   -69405
         TabIndex        =   59
         Top             =   1770
         Width           =   1890
         _ExtentX        =   3122
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14745599
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Mandatory       =   -1  'True
         Label           =   "Group 10"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   800
         TextBoxWidth    =   1030
      End
      Begin ITGControls.ITGTextBox txtG9D 
         Height          =   285
         Left            =   -67125
         TabIndex        =   76
         Top             =   1455
         Width           =   2880
         _ExtentX        =   4974
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Label           =   "ITGtext"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   0
         TextBoxWidth    =   2820
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtG8D 
         Height          =   285
         Left            =   -67125
         TabIndex        =   56
         Top             =   1140
         Width           =   2880
         _ExtentX        =   4974
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Label           =   "ITGtext"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   0
         TextBoxWidth    =   2820
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtG7D 
         Height          =   285
         Left            =   -67125
         TabIndex        =   53
         Top             =   825
         Width           =   2880
         _ExtentX        =   4974
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Label           =   "ITGtext"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   0
         TextBoxWidth    =   2820
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtG6D 
         Height          =   285
         Left            =   -67125
         TabIndex        =   51
         Top             =   510
         Width           =   2880
         _ExtentX        =   4974
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Label           =   "ITGtext"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   0
         TextBoxWidth    =   2820
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtG9 
         Height          =   285
         Left            =   -69405
         TabIndex        =   57
         Top             =   1455
         Width           =   1890
         _ExtentX        =   3122
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14745599
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Mandatory       =   -1  'True
         Label           =   "Group 9"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   800
         TextBoxWidth    =   1030
      End
      Begin ITGControls.ITGTextBox txtG8 
         Height          =   285
         Left            =   -69405
         TabIndex        =   54
         Top             =   1140
         Width           =   1890
         _ExtentX        =   3122
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14745599
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Mandatory       =   -1  'True
         Label           =   "Group 8"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   800
         TextBoxWidth    =   1030
      End
      Begin ITGControls.ITGTextBox txtG7 
         Height          =   285
         Left            =   -69405
         TabIndex        =   52
         Top             =   825
         Width           =   1890
         _ExtentX        =   3122
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14745599
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Mandatory       =   -1  'True
         Label           =   "Group 7"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   800
         TextBoxWidth    =   1030
      End
      Begin ITGControls.ITGTextBox txtG6 
         Height          =   285
         Left            =   -69405
         TabIndex        =   49
         Top             =   510
         Width           =   1890
         _ExtentX        =   3122
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14745599
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Mandatory       =   -1  'True
         Label           =   "Group 6"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   800
         TextBoxWidth    =   1030
      End
      Begin ITGControls.ITGTextBox txtG5D 
         Height          =   285
         Left            =   -72525
         TabIndex        =   48
         Top             =   1770
         Width           =   2880
         _ExtentX        =   4974
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Label           =   "ITGtext"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   0
         TextBoxWidth    =   2820
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtG5 
         Height          =   285
         Left            =   -74805
         TabIndex        =   46
         Top             =   1770
         Width           =   1890
         _ExtentX        =   3122
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14745599
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Mandatory       =   -1  'True
         Label           =   "Group 5"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   800
         TextBoxWidth    =   1030
      End
      Begin ITGControls.ITGTextBox txtG4D 
         Height          =   285
         Left            =   -72525
         TabIndex        =   45
         Top             =   1455
         Width           =   2880
         _ExtentX        =   4974
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Label           =   "ITGtext"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   0
         TextBoxWidth    =   2820
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtG3D 
         Height          =   285
         Left            =   -72525
         TabIndex        =   42
         Top             =   1140
         Width           =   2880
         _ExtentX        =   4974
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Label           =   "ITGtext"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   0
         TextBoxWidth    =   2820
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtG2D 
         Height          =   285
         Left            =   -72525
         TabIndex        =   39
         Top             =   825
         Width           =   2880
         _ExtentX        =   4974
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Label           =   "ITGtext"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   0
         TextBoxWidth    =   2820
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtG1D 
         Height          =   285
         Left            =   -72525
         TabIndex        =   36
         Top             =   510
         Width           =   2880
         _ExtentX        =   4974
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Label           =   "ITGtext"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   0
         TextBoxWidth    =   2820
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtG4 
         Height          =   285
         Left            =   -74805
         TabIndex        =   43
         Top             =   1455
         Width           =   1890
         _ExtentX        =   3122
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14745599
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Mandatory       =   -1  'True
         Label           =   "Group 4"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   800
         TextBoxWidth    =   1030
      End
      Begin ITGControls.ITGTextBox txtG3 
         Height          =   285
         Left            =   -74805
         TabIndex        =   40
         Top             =   1140
         Width           =   1890
         _ExtentX        =   3122
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14745599
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Mandatory       =   -1  'True
         Label           =   "Group 3"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   800
         TextBoxWidth    =   1030
      End
      Begin ITGControls.ITGTextBox txtG2 
         Height          =   285
         Left            =   -74805
         TabIndex        =   37
         Top             =   825
         Width           =   1890
         _ExtentX        =   3122
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14745599
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Mandatory       =   -1  'True
         Label           =   "Group 2"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   800
         TextBoxWidth    =   1030
      End
      Begin ITGControls.ITGTextBox txtG1 
         Height          =   285
         Left            =   -74805
         TabIndex        =   34
         Top             =   510
         Width           =   1890
         _ExtentX        =   3122
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14745599
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Mandatory       =   -1  'True
         Label           =   "Group 1"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   800
         TextBoxWidth    =   1030
      End
      Begin VB.CommandButton cmdPickG1 
         Height          =   300
         Left            =   -72870
         Picture         =   "frmMaintSupply.frx":0000
         Style           =   1  'Graphical
         TabIndex        =   35
         Top             =   510
         Width           =   315
      End
      Begin VB.CommandButton cmdPickG2 
         Height          =   300
         Left            =   -72870
         Picture         =   "frmMaintSupply.frx":014A
         Style           =   1  'Graphical
         TabIndex        =   38
         Top             =   825
         Width           =   315
      End
      Begin VB.CommandButton cmdPickG3 
         Height          =   300
         Left            =   -72870
         Picture         =   "frmMaintSupply.frx":0294
         Style           =   1  'Graphical
         TabIndex        =   41
         Top             =   1140
         Width           =   315
      End
      Begin VB.CommandButton cmdPickG4 
         Height          =   300
         Left            =   -72870
         Picture         =   "frmMaintSupply.frx":03DE
         Style           =   1  'Graphical
         TabIndex        =   44
         Top             =   1455
         Width           =   315
      End
      Begin VB.CommandButton cmdPickG5 
         Height          =   300
         Left            =   -72870
         Picture         =   "frmMaintSupply.frx":0528
         Style           =   1  'Graphical
         TabIndex        =   47
         Top             =   1770
         Width           =   315
      End
      Begin VB.CommandButton cmdPickG10 
         Height          =   300
         Left            =   -67470
         Picture         =   "frmMaintSupply.frx":0672
         Style           =   1  'Graphical
         TabIndex        =   60
         Top             =   1770
         Width           =   315
      End
      Begin VB.CommandButton cmdPickG9 
         Height          =   300
         Left            =   -67470
         Picture         =   "frmMaintSupply.frx":07BC
         Style           =   1  'Graphical
         TabIndex        =   58
         Top             =   1455
         Width           =   315
      End
      Begin VB.CommandButton cmdPickG8 
         Height          =   300
         Left            =   -67470
         Picture         =   "frmMaintSupply.frx":0906
         Style           =   1  'Graphical
         TabIndex        =   55
         Top             =   1140
         Width           =   315
      End
      Begin VB.CommandButton cmdPickG7 
         Height          =   300
         Left            =   -67470
         Picture         =   "frmMaintSupply.frx":0A50
         Style           =   1  'Graphical
         TabIndex        =   78
         Top             =   825
         Width           =   315
      End
      Begin VB.CommandButton cmdPickG6 
         Height          =   300
         Left            =   -67470
         Picture         =   "frmMaintSupply.frx":0B9A
         Style           =   1  'Graphical
         TabIndex        =   50
         Top             =   510
         Width           =   315
      End
      Begin ITGControls.ITGCommandButton cmdHistory 
         Height          =   315
         Left            =   -74895
         TabIndex        =   32
         Top             =   1665
         Width           =   2115
         _ExtentX        =   3731
         _ExtentY        =   556
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Caption         =   "Show History"
      End
      Begin MSDataGridLib.DataGrid dtgHistory 
         Height          =   2445
         Left            =   -72705
         TabIndex        =   33
         Top             =   315
         Width           =   9345
         _ExtentX        =   16484
         _ExtentY        =   4313
         _Version        =   393216
         AllowUpdate     =   0   'False
         HeadLines       =   1
         RowHeight       =   15
         FormatLocked    =   -1  'True
         BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ColumnCount     =   9
         BeginProperty Column00 
            DataField       =   "dDate"
            Caption         =   "Date"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   1
               Format          =   "MM/dd/yyyy"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   3
            EndProperty
         EndProperty
         BeginProperty Column01 
            DataField       =   "cType"
            Caption         =   "Transaction Type"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column02 
            DataField       =   "cTranNo"
            Caption         =   "Reference No."
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column03 
            DataField       =   "nQty"
            Caption         =   "Quantity"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   1
               Format          =   "#,##0.00"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   1
            EndProperty
         EndProperty
         BeginProperty Column04 
            DataField       =   "nPrice"
            Caption         =   "Price"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   1
               Format          =   "#,##0.00"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   1
            EndProperty
         EndProperty
         BeginProperty Column05 
            DataField       =   "nAmount"
            Caption         =   "Amount"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   1
               Format          =   "#,##0.00"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   1
            EndProperty
         EndProperty
         BeginProperty Column06 
            DataField       =   "cCode"
            Caption         =   "Client ID"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column07 
            DataField       =   "cName"
            Caption         =   "Client Name"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column08 
            DataField       =   "lCancelled"
            Caption         =   "Active/Cancelled"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   5
               Format          =   ""
               HaveTrueFalseNull=   1
               TrueValue       =   "Cancelled"
               FalseValue      =   "Active"
               NullValue       =   "Cancelled"
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   7
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0 
            BeginProperty Column00 
               ColumnWidth     =   1230.236
            EndProperty
            BeginProperty Column01 
            EndProperty
            BeginProperty Column02 
               ColumnWidth     =   1470.047
            EndProperty
            BeginProperty Column03 
               Alignment       =   1
               ColumnWidth     =   1184.882
            EndProperty
            BeginProperty Column04 
               Alignment       =   1
            EndProperty
            BeginProperty Column05 
               Alignment       =   1
               ColumnWidth     =   1739.906
            EndProperty
            BeginProperty Column06 
            EndProperty
            BeginProperty Column07 
               ColumnWidth     =   3569.953
            EndProperty
            BeginProperty Column08 
            EndProperty
         EndProperty
      End
      Begin VB.Frame Frame2 
         Appearance      =   0  'Flat
         BackColor       =   &H00F7D9C2&
         Caption         =   " Date Range "
         ForeColor       =   &H80000008&
         Height          =   1260
         Left            =   -74895
         TabIndex        =   90
         Top             =   360
         Width           =   2115
         Begin ITGControls.ITGDateBox dtbTo 
            Height          =   285
            Left            =   660
            TabIndex        =   31
            Top             =   675
            Width           =   1305
            _ExtentX        =   2302
            _ExtentY        =   503
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Text            =   ""
            SendKeysTab     =   -1  'True
         End
         Begin ITGControls.ITGDateBox dtbFrom 
            Height          =   285
            Left            =   660
            TabIndex        =   30
            Top             =   360
            Width           =   1305
            _ExtentX        =   2302
            _ExtentY        =   503
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Text            =   ""
            SendKeysTab     =   -1  'True
         End
         Begin VB.Label Label7 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "To"
            Height          =   195
            Left            =   180
            TabIndex        =   93
            Top             =   705
            Width           =   180
         End
         Begin VB.Label Label5 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "From"
            Height          =   195
            Left            =   180
            TabIndex        =   92
            Top             =   405
            Width           =   360
         End
      End
      Begin MSDataGridLib.DataGrid dtgC 
         Height          =   2295
         Left            =   -75000
         TabIndex        =   29
         Top             =   315
         Width           =   11640
         _ExtentX        =   20532
         _ExtentY        =   4048
         _Version        =   393216
         AllowArrows     =   -1  'True
         HeadLines       =   1
         RowHeight       =   15
         TabAction       =   2
         FormatLocked    =   -1  'True
         BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ColumnCount     =   5
         BeginProperty Column00 
            DataField       =   "cCompItemNo"
            Caption         =   "Supply ID"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   1
               Format          =   "#,##0.00"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   1
            EndProperty
         EndProperty
         BeginProperty Column01 
            DataField       =   "cCompItemDesc"
            Caption         =   "Supply Name"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column02 
            DataField       =   "nQty"
            Caption         =   "Quantity"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   1
               Format          =   "#,##0.00"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   1
            EndProperty
         EndProperty
         BeginProperty Column03 
            DataField       =   "nSRPrice"
            Caption         =   "SRP"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   1
               Format          =   "#,##0.00"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   1
            EndProperty
         EndProperty
         BeginProperty Column04 
            DataField       =   "nWSPrice"
            Caption         =   "WSP"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   1
               Format          =   "#,##0.00"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   1
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0 
            BeginProperty Column00 
               Button          =   -1  'True
            EndProperty
            BeginProperty Column01 
               Locked          =   -1  'True
               ColumnWidth     =   3314.835
            EndProperty
            BeginProperty Column02 
               Alignment       =   1
               ColumnWidth     =   1094.74
            EndProperty
            BeginProperty Column03 
               Alignment       =   1
               Locked          =   -1  'True
               ColumnWidth     =   1154.835
            EndProperty
            BeginProperty Column04 
               Alignment       =   1
               Locked          =   -1  'True
               ColumnWidth     =   1305.071
            EndProperty
         EndProperty
      End
      Begin ITGControls.ITGTextBox txtLeadTime 
         Height          =   285
         Left            =   5340
         TabIndex        =   28
         Top             =   1800
         Width           =   2310
         _ExtentX        =   3863
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         MaximumValue    =   9999999999.99
         Label           =   "Lead Time"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1260
         TextBoxWidth    =   990
      End
      Begin ITGControls.ITGTextBox txtAdjustment 
         Height          =   285
         Left            =   930
         TabIndex        =   22
         TabStop         =   0   'False
         Top             =   1485
         Width           =   3180
         _ExtentX        =   5398
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         MaximumValue    =   9999999999.99
         DecimalPlace    =   2
         Label           =   "Adjustment"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1490
         TextBoxWidth    =   1630
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtPurchase 
         Height          =   285
         Left            =   930
         TabIndex        =   20
         TabStop         =   0   'False
         Top             =   855
         Width           =   3180
         _ExtentX        =   5398
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         MaximumValue    =   9999999999.99
         DecimalPlace    =   2
         Label           =   "Purchase"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1490
         TextBoxWidth    =   1630
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtMaximum 
         Height          =   285
         Left            =   5340
         TabIndex        =   24
         Top             =   555
         Width           =   2940
         _ExtentX        =   4974
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         MaximumValue    =   9999999999.99
         DecimalPlace    =   2
         Label           =   "Maximum"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1260
         TextBoxWidth    =   1620
      End
      Begin ITGControls.ITGTextBox txtMinimum 
         Height          =   285
         Left            =   5340
         TabIndex        =   25
         Top             =   855
         Width           =   2940
         _ExtentX        =   4974
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         MaximumValue    =   9999999999.99
         DecimalPlace    =   2
         Label           =   "Minimum"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1260
         TextBoxWidth    =   1620
      End
      Begin ITGControls.ITGTextBox txtInitial 
         Height          =   285
         Left            =   930
         TabIndex        =   19
         TabStop         =   0   'False
         Top             =   540
         Width           =   3180
         _ExtentX        =   5398
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         MaximumValue    =   9999999999.99
         DecimalPlace    =   2
         Label           =   "Initial"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1490
         TextBoxWidth    =   1630
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtBalance 
         Height          =   285
         Left            =   930
         TabIndex        =   23
         TabStop         =   0   'False
         Top             =   1800
         Width           =   3180
         _ExtentX        =   5398
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         MaximumValue    =   9999999999.99
         DecimalPlace    =   2
         Label           =   "Balance"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1490
         TextBoxWidth    =   1630
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtIssues 
         Height          =   285
         Left            =   930
         TabIndex        =   21
         TabStop         =   0   'False
         Top             =   1170
         Width           =   3180
         _ExtentX        =   5398
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         MaximumValue    =   9999999999.99
         DecimalPlace    =   2
         Label           =   "Issues"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1490
         TextBoxWidth    =   1630
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtReorderPt 
         Height          =   285
         Left            =   5340
         TabIndex        =   26
         Top             =   1170
         Width           =   2940
         _ExtentX        =   4974
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         MaximumValue    =   9999999999.99
         DecimalPlace    =   2
         Label           =   "Reorder Point"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1260
         TextBoxWidth    =   1620
      End
      Begin ITGControls.ITGTextBox txtReorder 
         Height          =   285
         Left            =   5340
         TabIndex        =   27
         Top             =   1485
         Width           =   2940
         _ExtentX        =   4974
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14737632
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         DataType        =   1
         MaximumValue    =   9999999999.99
         DecimalPlace    =   2
         Label           =   "Reorder"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1260
         TextBoxWidth    =   1620
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Days"
         Height          =   195
         Left            =   7815
         TabIndex        =   89
         Top             =   1845
         Width           =   600
      End
   End
   Begin ITGControls.ITGTab SSTab2 
      Height          =   3675
      Left            =   0
      TabIndex        =   81
      Top             =   1020
      Width           =   11640
      _ExtentX        =   20532
      _ExtentY        =   6482
      TabCount        =   2
      TabCaption(0)   =   "               Main               "
      TabContCtrlCnt(0)=   1
      Tab(0)ContCtrlCap(1)=   "ComunionFrames1"
      TabCaption(1)   =   "               List               "
      TabContCtrlCnt(1)=   1
      Tab(1)ContCtrlCap(1)=   "dtgList"
      TabTheme        =   2
      ActiveTabBackStartColor=   16250865
      ActiveTabBackEndColor=   16243138
      InActiveTabBackStartColor=   16243138
      InActiveTabBackEndColor=   16243138
      InActiveTabForeColor=   0
      BeginProperty ActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty InActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      OuterBorderColor=   4210752
      TopLeftInnerBorderColor=   4210752
      BottomRightInnerBorderColor=   4210752
      DisabledTabBackColor=   16243138
      DisabledTabForeColor=   -2147483630
      Begin MSDataGridLib.DataGrid dtgList 
         Height          =   3360
         Left            =   -75000
         TabIndex        =   75
         Top             =   315
         Width           =   11640
         _ExtentX        =   20532
         _ExtentY        =   5927
         _Version        =   393216
         AllowUpdate     =   0   'False
         AllowArrows     =   -1  'True
         Appearance      =   0
         HeadLines       =   1
         RowHeight       =   15
         TabAction       =   2
         FormatLocked    =   -1  'True
         BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ColumnCount     =   5
         BeginProperty Column00 
            DataField       =   "cSupplyNo"
            Caption         =   "Supply ID"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   "0"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column01 
            DataField       =   "cDesc"
            Caption         =   "Description"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column02 
            DataField       =   "cPartNo"
            Caption         =   "Part Number"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column03 
            DataField       =   "cType"
            Caption         =   "Type"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column04 
            DataField       =   "cCosting"
            Caption         =   "Costing"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1033
               SubFormatType   =   0
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0 
            AllowRowSizing  =   0   'False
            BeginProperty Column00 
               ColumnAllowSizing=   -1  'True
               Locked          =   -1  'True
               ColumnWidth     =   1695.118
            EndProperty
            BeginProperty Column01 
               Locked          =   -1  'True
               ColumnWidth     =   3360.189
            EndProperty
            BeginProperty Column02 
               Locked          =   -1  'True
            EndProperty
            BeginProperty Column03 
               Locked          =   -1  'True
            EndProperty
            BeginProperty Column04 
               Locked          =   -1  'True
            EndProperty
         EndProperty
      End
      Begin ITGControls.ComunionFrames ComunionFrames1 
         Height          =   3360
         Left            =   0
         Top             =   315
         Width           =   11640
         _ExtentX        =   20532
         _ExtentY        =   5927
         FrameColor      =   4210752
         BackColor       =   16243138
         FillColor       =   16243138
         RoundedCorner   =   0   'False
         Caption         =   "Information"
         Alignment       =   0
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ThemeColor      =   5
         ColorFrom       =   16243138
         ColorTo         =   16250865
         Begin VB.CommandButton cmdPickPC 
            Height          =   300
            Left            =   2970
            Picture         =   "frmMaintSupply.frx":0CE4
            Style           =   1  'Graphical
            TabIndex        =   12
            Top             =   1785
            Width           =   315
         End
         Begin VB.CommandButton cmdPickDept 
            Height          =   300
            Left            =   6465
            Picture         =   "frmMaintSupply.frx":0E2E
            Style           =   1  'Graphical
            TabIndex        =   17
            Top             =   2100
            Width           =   315
         End
         Begin VB.ComboBox cboType 
            Appearance      =   0  'Flat
            BackColor       =   &H00FFFFFF&
            Height          =   315
            ItemData        =   "frmMaintSupply.frx":0F78
            Left            =   1485
            List            =   "frmMaintSupply.frx":0F8E
            Style           =   2  'Dropdown List
            TabIndex        =   18
            Top             =   2415
            Width           =   1440
         End
         Begin VB.CommandButton cmdPickWH 
            Height          =   300
            Left            =   2970
            Picture         =   "frmMaintSupply.frx":0FCE
            Style           =   1  'Graphical
            TabIndex        =   15
            Top             =   2115
            Width           =   315
         End
         Begin VB.Timer Timer1 
            Interval        =   300
            Left            =   3315
            Top             =   435
         End
         Begin ITGControls.ITGTextBox txtItemNo 
            Height          =   285
            Left            =   135
            TabIndex        =   0
            Top             =   525
            Width           =   3135
            _ExtentX        =   5318
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            BackColor       =   14745599
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            AllCaps         =   -1  'True
            Mandatory       =   -1  'True
            Label           =   "Supply ID"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelWidth      =   1320
            TextBoxWidth    =   1755
            Required        =   -1  'True
         End
         Begin ITGControls.ITGTextBox txtDesc 
            Height          =   285
            Left            =   135
            TabIndex        =   2
            Top             =   840
            Width           =   8100
            _ExtentX        =   14076
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            BackColor       =   14745599
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Mandatory       =   -1  'True
            Label           =   "Supply Name"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelWidth      =   1320
            TextBoxWidth    =   6720
            Required        =   -1  'True
         End
         Begin ITGControls.ITGTextBox txtWH 
            Height          =   285
            Left            =   135
            TabIndex        =   14
            Top             =   2100
            Width           =   2790
            _ExtentX        =   4710
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            BackColor       =   14745599
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            AllCaps         =   -1  'True
            Mandatory       =   -1  'True
            Label           =   "Warehouse"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelWidth      =   1320
            TextBoxWidth    =   1410
            Required        =   -1  'True
         End
         Begin ITGControls.ITGTextBox txtSRP 
            Height          =   285
            Left            =   6450
            TabIndex        =   6
            Top             =   1155
            Width           =   1770
            _ExtentX        =   2910
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Text            =   "0"
            DataType        =   1
            DecimalPlace    =   2
            Label           =   "POP"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelWidth      =   700
            TextBoxWidth    =   1010
         End
         Begin ITGControls.ITGTextBox txtUnit 
            Height          =   285
            Left            =   135
            TabIndex        =   3
            Top             =   1155
            Width           =   2385
            _ExtentX        =   3995
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            BackColor       =   14745599
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Mandatory       =   -1  'True
            Label           =   "Purchase UOM"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelWidth      =   1320
            TextBoxWidth    =   1005
         End
         Begin ITGControls.ITGTextBox txtDept 
            Height          =   285
            Left            =   3630
            TabIndex        =   16
            Top             =   2100
            Width           =   2790
            _ExtentX        =   4710
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            AllCaps         =   -1  'True
            Label           =   "Department"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelWidth      =   1320
            TextBoxWidth    =   1410
            Required        =   -1  'True
         End
         Begin ITGControls.ITGTextBox txtPartNo 
            Height          =   285
            Left            =   5445
            TabIndex        =   1
            Top             =   525
            Width           =   2790
            _ExtentX        =   4710
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Label           =   "Serial Number"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelWidth      =   1320
            TextBoxWidth    =   1410
            Required        =   -1  'True
         End
         Begin ITGControls.ITGTextBox txtType 
            Height          =   285
            Left            =   1755
            TabIndex        =   83
            Tag             =   "cboType"
            Top             =   2415
            Visible         =   0   'False
            Width           =   660
            _ExtentX        =   1058
            _ExtentY        =   503
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Mandatory       =   -1  'True
            Label           =   "Product Type"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelWidth      =   0
            TextBoxWidth    =   600
         End
         Begin ITGControls.ITGTextBox txtPCost 
            Height          =   285
            Left            =   4395
            TabIndex        =   5
            Top             =   1155
            Width           =   1770
            _ExtentX        =   2910
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Text            =   "0"
            DataType        =   1
            DecimalPlace    =   2
            Label           =   "Cost"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelWidth      =   700
            TextBoxWidth    =   1010
         End
         Begin ITGControls.ITGTextBox txtPQty 
            Height          =   285
            Left            =   2595
            TabIndex        =   4
            Top             =   1155
            Width           =   1470
            _ExtentX        =   2381
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Text            =   "0"
            DataType        =   1
            DecimalPlace    =   2
            Label           =   "Qty"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelWidth      =   700
            TextBoxWidth    =   710
         End
         Begin ITGControls.ITGTextBox txtSSRP 
            Height          =   285
            Left            =   6450
            TabIndex        =   10
            Top             =   1470
            Width           =   1770
            _ExtentX        =   2910
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Text            =   "0"
            DataType        =   1
            DecimalPlace    =   2
            Label           =   "POP"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelWidth      =   700
            TextBoxWidth    =   1010
         End
         Begin ITGControls.ITGTextBox txtSUnit 
            Height          =   285
            Left            =   135
            TabIndex        =   7
            Top             =   1470
            Width           =   2385
            _ExtentX        =   3995
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            BackColor       =   14745599
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Mandatory       =   -1  'True
            Label           =   "Pass On UOM"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelWidth      =   1320
            TextBoxWidth    =   1005
         End
         Begin ITGControls.ITGTextBox txtSCost 
            Height          =   285
            Left            =   4395
            TabIndex        =   9
            Top             =   1470
            Width           =   1770
            _ExtentX        =   2910
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Text            =   "0"
            DataType        =   1
            DecimalPlace    =   2
            Label           =   "Cost"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelWidth      =   700
            TextBoxWidth    =   1010
         End
         Begin ITGControls.ITGTextBox txtSQty 
            Height          =   285
            Left            =   2595
            TabIndex        =   8
            Top             =   1470
            Width           =   1470
            _ExtentX        =   2381
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Text            =   "0"
            DataType        =   1
            DecimalPlace    =   2
            Label           =   "Qty"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelWidth      =   700
            TextBoxWidth    =   710
         End
         Begin ITGControls.ITGTextBox txtPCDesc 
            Height          =   285
            Left            =   3300
            TabIndex        =   13
            TabStop         =   0   'False
            Top             =   1785
            Width           =   3495
            _ExtentX        =   6059
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            BackColor       =   14737632
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            AllCaps         =   -1  'True
            Label           =   "ITGtext"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelWidth      =   0
            TextBoxWidth    =   3435
            Enabled         =   0   'False
         End
         Begin ITGControls.ITGTextBox txtPCCode 
            Height          =   285
            Left            =   135
            TabIndex        =   11
            Top             =   1785
            Width           =   2790
            _ExtentX        =   4710
            _ExtentY        =   503
            SendKeysTab     =   -1  'True
            BackColor       =   14745599
            LabelBackColor  =   16243138
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            AllCaps         =   -1  'True
            Mandatory       =   -1  'True
            Label           =   "Unit Division"
            BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            LabelWidth      =   1325
            TextBoxWidth    =   1405
            Required        =   -1  'True
            LinkForeColor   =   0
         End
         Begin RichTextLib.RichTextBox txtLongDesc 
            Height          =   600
            Left            =   8670
            TabIndex        =   77
            Top             =   2565
            Width           =   2670
            _ExtentX        =   4710
            _ExtentY        =   1058
            _Version        =   393217
            ScrollBars      =   2
            MaxLength       =   1000
            Appearance      =   0
            TextRTF         =   $"frmMaintSupply.frx":1118
         End
         Begin MSComDlg.CommonDialog cd 
            Left            =   10800
            Top             =   1860
            _ExtentX        =   847
            _ExtentY        =   847
            _Version        =   393216
         End
         Begin VB.Label Label2 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "Supply Image"
            BeginProperty Font 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00000000&
            Height          =   195
            Left            =   8655
            TabIndex        =   86
            Top             =   465
            Width           =   1170
         End
         Begin VB.Image iPhoto 
            Appearance      =   0  'Flat
            BorderStyle     =   1  'Fixed Single
            DataField       =   "iPhoto"
            Height          =   1635
            Left            =   9435
            Stretch         =   -1  'True
            Top             =   690
            Width           =   1860
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "Long Description"
            Height          =   195
            Left            =   8685
            TabIndex        =   85
            Top             =   2310
            Width           =   1185
         End
         Begin VB.Label Label3 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "Supply Type"
            Height          =   195
            Left            =   180
            TabIndex        =   84
            Top             =   2475
            Width           =   885
         End
      End
      Begin CRVIEWERLibCtl.CRViewer ITGReportViewer 
         Height          =   6200
         Left            =   -74940
         TabIndex        =   82
         Top             =   360
         Visible         =   0   'False
         Width           =   10500
         lastProp        =   500
         _cx             =   5080
         _cy             =   5080
         DisplayGroupTree=   0   'False
         DisplayToolbar  =   -1  'True
         EnableGroupTree =   0   'False
         EnableNavigationControls=   -1  'True
         EnableStopButton=   -1  'True
         EnablePrintButton=   -1  'True
         EnableZoomControl=   -1  'True
         EnableCloseButton=   -1  'True
         EnableProgressControl=   -1  'True
         EnableSearchControl=   -1  'True
         EnableRefreshButton=   0   'False
         EnableDrillDown =   -1  'True
         EnableAnimationControl=   -1  'True
         EnableSelectExpertButton=   0   'False
         EnableToolbar   =   -1  'True
         DisplayBorder   =   0   'False
         DisplayTabs     =   0   'False
         DisplayBackgroundEdge=   -1  'True
         SelectionFormula=   ""
         EnablePopupMenu =   -1  'True
         EnableExportButton=   -1  'True
         EnableSearchExpertButton=   0   'False
         EnableHelpButton=   0   'False
         LaunchHTTPHyperlinksInNewBrowser=   -1  'True
      End
   End
   Begin MSComctlLib.StatusBar sbRS 
      Align           =   2  'Align Bottom
      Height          =   255
      Left            =   0
      TabIndex        =   88
      Top             =   7545
      Width           =   11820
      _ExtentX        =   20849
      _ExtentY        =   450
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   2
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   3528
            MinWidth        =   3528
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
      EndProperty
   End
   Begin VB.Shape Shape2 
      BorderColor     =   &H00404040&
      Height          =   2700
      Left            =   0
      Top             =   4755
      Width           =   11640
   End
   Begin VB.Label lblDetails 
      BackColor       =   &H00F7D9C2&
      Caption         =   "Supply Type, Balance"
      ForeColor       =   &H00000000&
      Height          =   255
      Left            =   135
      TabIndex        =   80
      Top             =   510
      Visible         =   0   'False
      Width           =   9960
   End
   Begin VB.Label lblHeader 
      BackColor       =   &H00F7D9C2&
      Caption         =   "Supply ID - Description"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   375
      Left            =   135
      TabIndex        =   79
      Top             =   150
      Width           =   10125
   End
   Begin VB.Image imgLogo 
      BorderStyle     =   1  'Fixed Single
      Height          =   930
      Left            =   10515
      Stretch         =   -1  'True
      Top             =   0
      Width           =   1125
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00404040&
      Height          =   975
      Left            =   0
      Top             =   0
      Width           =   10440
   End
End
Attribute VB_Name = "frmMaintSupply"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'IT Group Inc. 2005.09.23

Option Explicit

'Object variables





'Recordset variables
Private WithEvents rsHeader As ADODB.Recordset
Attribute rsHeader.VB_VarHelpID = -1
Private rsC As ADODB.Recordset
Private rsDummy As ADODB.Recordset
Private rsDummyC As ADODB.Recordset

Private rsHistory As ADODB.Recordset

'ADO Connection variables

Private connHeader As ADODB.Connection
Private connC As ADODB.Connection

'Form mode enumeration
Public Enum eSupplyMode
    Normal
    AddNewEdit
    Find
End Enum
Private Mode As eSupplyMode

'Other declaration
Public dtgName As String
Public sBit As String
Private vBM As Variant 'Recordset bookmark variable

Private sTempPath As String ' Path of the Picture : Temporary
Private stm As New ADODB.Stream

'Security Acess Level variables
Public lACNew As Boolean
Public lACEdit As Boolean
Public lACDelete As Boolean
Public lACPost As Boolean
Public lACCancel As Boolean
Public lACPrint As Boolean

Private Sub cboType_Click()
    txtType = Trim(cboType)
End Sub

Private Sub cboType_KeyPress(KeyAscii As Integer)
    SendKeysTab KeyAscii
End Sub

Private Sub cmdHistory_Click()
'Dim cmdHist As ADODB.Command
'
'    If Not IsDate(dtbFrom.Text) Then
'        MsgBox "Please input date parameter.", vbInformation, "ComUnion"
'        dtbFrom.SetFocus
'        Exit Sub
'    ElseIf Not IsDate(dtbTo.Text) Then
'        MsgBox "Please input date parameter.", vbInformation, "ComUnion"
'        dtbTo.SetFocus
'        Exit Sub
'    End If
'
'    Set rsHistory = Nothing
'    Set rsHistory = New Recordset
'    Set dtgHistory.DataSource = Nothing
'    dtgHistory.Refresh
'
'    Set cmdHist = New ADODB.Command
'
'    With cmdHist
'        .ActiveConnection = cn
'        .CommandTimeout = 1000
'        .CommandText = "rsp_Inventory_Product_Movement_History"
'        .CommandType = adCmdStoredProc
'
'        .Parameters("@cFrom") = Trim(txtItemNo)
'        .Parameters("@cTo") = Trim(txtItemNo)
'        .Parameters("@cCompID") = COID
'
'        .Parameters("@cCompName") = ""
'        .Parameters("@cAddress1") = ""
'        .Parameters("@cAddress2") = ""
'        .Parameters("@cReportTitle") = ""
'        .Parameters("@cCriteria1") = ""
'        .Parameters("@cCriteria") = ""
'
'        .Parameters("@dDateFrom") = Trim(dtbFrom.Text)
'        .Parameters("@dDateTo") = Trim(dtbTo.Text)
'    End With
'
'    Set rsHistory = cmdHist.Execute()
'    Set cmdHist = Nothing
'
'    rsHistory.Filter = "cItemNo = '" & Trim(txtItemNo) & "'"
'    Set dtgHistory.DataSource = rsHistory
    
End Sub

Private Sub cmdPickDept_Click()
    If lPickListActive Then Exit Sub
    frmITGPickList.mType = Department
    frmITGPickList.Show vbModal
    txtDept = frmITGPickList.mCode
    If Trim(txtDept) <> "" Then SendKeys "{Tab}"
End Sub

Private Sub cmdPickG1_Click()
    If lPickListActive Then Exit Sub
    RepName = "1"
    frmITGPickList.mType = Groupings
    frmITGPickList.Show vbModal
    txtG1 = frmITGPickList.mCode
    txtG1D = frmITGPickList.mName
    If Trim(txtG1D) <> "" Then SendKeys "{Tab}"
End Sub

Private Sub cmdPickG10_Click()
    If lPickListActive Then Exit Sub
    RepName = "10"
    frmITGPickList.mType = Groupings
    frmITGPickList.Show vbModal
    txtG10 = frmITGPickList.mCode
    txtG10D = frmITGPickList.mName
    If Trim(txtG10D) <> "" Then SendKeys "{Tab}"
End Sub

Private Sub cmdPickG2_Click()
    If lPickListActive Then Exit Sub
    RepName = "2"
    frmITGPickList.mType = Groupings
    frmITGPickList.Show vbModal
    txtG2 = frmITGPickList.mCode
    txtG2D = frmITGPickList.mName
    If Trim(txtG2D) <> "" Then SendKeys "{Tab}"
End Sub

Private Sub cmdPickG3_Click()
    If lPickListActive Then Exit Sub
    RepName = "3"
    frmITGPickList.mType = Groupings
    frmITGPickList.Show vbModal
    txtG3 = frmITGPickList.mCode
    txtG3D = frmITGPickList.mName
    If Trim(txtG3D) <> "" Then SendKeys "{Tab}"
End Sub

Private Sub cmdPickG4_Click()
    If lPickListActive Then Exit Sub
    RepName = "4"
    frmITGPickList.mType = Groupings
    frmITGPickList.Show vbModal
    txtG4 = frmITGPickList.mCode
    txtG4D = frmITGPickList.mName
    If Trim(txtG4D) <> "" Then SendKeys "{Tab}"
End Sub

Private Sub cmdPickG5_Click()
    If lPickListActive Then Exit Sub
    RepName = "5"
    frmITGPickList.mType = Groupings
    frmITGPickList.Show vbModal
    txtG5 = frmITGPickList.mCode
    txtG5D = frmITGPickList.mName
    If Trim(txtG5D) <> "" Then SendKeys "{Tab}"
End Sub

Private Sub cmdPickG6_Click()
    If lPickListActive Then Exit Sub
    RepName = "6"
    frmITGPickList.mType = Groupings
    frmITGPickList.Show vbModal
    txtG6 = frmITGPickList.mCode
    txtG6D = frmITGPickList.mName
    If Trim(txtG6D) <> "" Then SendKeys "{Tab}"
End Sub

Private Sub cmdPickG7_Click()
    If lPickListActive Then Exit Sub
    RepName = "7"
    frmITGPickList.mType = Groupings
    frmITGPickList.Show vbModal
    txtG7 = frmITGPickList.mCode
    txtG7D = frmITGPickList.mName
    If Trim(txtG7D) <> "" Then SendKeys "{Tab}"
End Sub

Private Sub cmdPickG8_Click()
    If lPickListActive Then Exit Sub
    RepName = "8"
    frmITGPickList.mType = Groupings
    frmITGPickList.Show vbModal
    txtG8 = frmITGPickList.mCode
    txtG8D = frmITGPickList.mName
    If Trim(txtG8D) <> "" Then SendKeys "{Tab}"
End Sub

Private Sub cmdPickG9_Click()
    If lPickListActive Then Exit Sub
    RepName = "9"
    frmITGPickList.mType = Groupings
    frmITGPickList.Show vbModal
    txtG9 = frmITGPickList.mCode
    txtG9D = frmITGPickList.mName
    If Trim(txtG9D) <> "" Then SendKeys "{Tab}"
End Sub

Private Sub cmdPickPC_Click()
    If lPickListActive Then Exit Sub
    sFilterString = Trim(txtPCCode)
    frmITGPicker.zType = QProfitCenter
    frmITGPicker.Condition = "where cCompanyID = '" & COID & "'" 'added gino
    frmITGPicker.Show vbModal
    txtPCCode = frmITGPicker.zCode
    txtPCDesc = frmITGPicker.zName
    If Trim(txtPCDesc) <> "" Then SendKeys "{Tab}"
End Sub

Private Sub cmdWHBalance_Click()
    If Trim(txtItemNo) = "" Then Exit Sub
    ShowProductBalance_WH
End Sub

Private Sub dtgBudget_KeyDown(KeyCode As Integer, Shift As Integer)
    If Mode <> AddNewEdit Then Exit Sub
    If (Shift = vbCtrlMask And KeyCode = 83) Then
        TBSave
    End If
End Sub

Private Sub dtgC_AfterColUpdate(ByVal ColIndex As Integer)
    If Mode <> AddNewEdit Then Exit Sub
    Select Case ColIndex
        Case 0
            If GetValueFrTable("cSupplyNo", "Supply", "cSupplyNo = '" & Trim(dtgC.Columns(0).Value) & "'") <> "" Then
                GetItemValues rsC, dtgC, dtgC.Columns(0).Value
            End If
    End Select
End Sub

Private Sub dtgC_ButtonClick(ByVal ColIndex As Integer)
    If Mode <> AddNewEdit Then Exit Sub
    Select Case ColIndex
        Case 0
            If lPickListActive Then Exit Sub
            sFilterString = Trim(dtgC.Columns(0).Text)
            frmITGPickList.mType = Product
            frmITGPickList.Show vbModal
            dtgC.Columns(0).Value = Trim(frmITGPickList.mCode) & ""
            If (Trim(frmITGPickList.mName) & "") <> "" Then
                GetItemValues rsC, dtgC, dtgC.Columns(0).Value
            End If
            dtgC.Col = 3
            dtgC.Columns(3).Value = 0
    End Select
End Sub

'Set the datagrid as active control
Private Sub dtgC_Click()
    If Mode = AddNewEdit Then dtgName = dtgC.Name
End Sub

Private Sub dtgC_Error(ByVal DataError As Integer, Response As Integer)
    Response = 0
End Sub

Private Sub dtgC_GotFocus()
    dtgName = dtgC.Name
End Sub

Private Sub dtgC_KeyDown(KeyCode As Integer, Shift As Integer)
    If Mode <> AddNewEdit Then Exit Sub
    If (Shift = vbCtrlMask And KeyCode = 45) Then
        TBNewLine
    ElseIf (Shift = vbCtrlMask And KeyCode = 46) Then
        TBDeleteLine
    ElseIf (Shift = vbCtrlMask And KeyCode = 83) Then
        TBSave
    End If
End Sub

Private Sub dtgC_KeyPress(KeyAscii As Integer)
    If Mode <> AddNewEdit Then Exit Sub
    If rsC.RecordCount = 0 Then Exit Sub
    
    If KeyAscii = 39 Then KeyAscii = 0 'Apostrophe {'}
    
    If KeyAscii = 13 Then
        Select Case dtgC.Col
            Case 0
                If GetValueFrTable("cSupplyNo", "Supply", "cSupplyNo = '" & Trim(dtgC.Columns(0).Text) & "'") = "" Then
                    dtgC_ButtonClick (0) 'use button click
                End If
            Case Else
                SendKeys "{Tab}"
        End Select
    Else
        KeyAscii = Asc(UCase(Chr(KeyAscii)))
    End If
End Sub

'Right click menu popup
Private Sub dtgC_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
    If Mode <> AddNewEdit Then Exit Sub
    If Button = 2 Then
        dtgName = dtgC.Name
        PopupMenu ITGLedgerMain.mnuDetail
    End If
End Sub

Private Sub dtgHistory_HeadClick(ByVal ColIndex As Integer)
On Error Resume Next
    SortGrid dtgHistory, ColIndex, rsHistory
End Sub

Private Sub dtgHistory_KeyDown(KeyCode As Integer, Shift As Integer)
    If Mode <> AddNewEdit Then Exit Sub
    If (Shift = vbCtrlMask And KeyCode = 83) Then
        TBSave
    End If
End Sub

'Private Sub dtgList_HeadClick(ByVal ColIndex As Integer)
'    SortGrid dtgList, ColIndex, rsHeader
'End Sub

Private Sub cmdPickWH_Click()
    If lPickListActive Then Exit Sub
    frmITGPickList.mType = Warehouse
    frmITGPickList.Show vbModal
    txtWH.Text = frmITGPickList.mCode
    If Trim(txtWH) <> "" Then SendKeys "{Tab}"
End Sub

Private Sub dtgList_HeadClick(ByVal ColIndex As Integer)
    SortGrid dtgList, ColIndex, rsHeader
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Dim iKey As Integer
    iKey = ToolbarIndex(KeyCode, Shift)
    If iKey <> 0 Then
        If ITGLedgerMain.tbrMain.Buttons(iKey).Enabled = True Then
            ToolbarFunction iKey
        End If
    End If
End Sub

'Set Your Object
Private Sub Form_Load()
        
    Set FrmName = Me
    FormSetup
    
    AcessBit Me, GetValueFrTable("AccessLevel", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' AND [Module] = 'MF25'")
    
    Set rsHeader = New ADODB.Recordset
    Set rsC = New ADODB.Recordset
    
    
    Call LoadComboValues(cboType, "cParamName", "PARAMETER_SYSTEM", "WHERE cType = 'SUPPTYPE'", "nOrder")
    
    FormLocking True
    FormSearch True
    SearchObj True
    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, lACNew, , , , , , , , , True, , , True
    BitVisible ITGLedgerMain.tbrMain, True
    ITGLedgerMain.tbrMain.Buttons("btnFind").ButtonMenus("btnFindP").Enabled = True
    
    SetGroupName
    imgLogo.Picture = ITGLedgerMain.Picture1.Picture
    Mode = Find
    txtItemNo.Locked = False
    
   
    
End Sub

'Activate your Toolbar Mode
Private Sub Form_Activate()
    TBBitReload
End Sub

'Release your Object
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
    
    If Mode = AddNewEdit Then
        MsgBox "Unable to close. You are in Add/New/Edit mode." & vbCr & _
            " Must Save or Undo", vbCritical, Me.Caption
        Cancel = True
        Exit Sub
    End If
    
    CloseMenuTab ITGLedgerMain
    
    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, , , , , , , , , , True
    BitVisible ITGLedgerMain.tbrMain
    ITGLedgerMain.tbrMain.Buttons("btnFind").ButtonMenus("btnFindP").Enabled = False
    
    
    
    
    
    Set rsHeader = Nothing
    Set rsC = Nothing
    Set rsDummy = Nothing
    Set rsDummyC = Nothing
    Set rsHistory = Nothing
    Set connHeader = Nothing
    Set connC = Nothing
    
    Set frmMaintSupply = Nothing

    lCloseWindow = True
    
'    'oForm(Me.Tag).Mode = 1
'    'oForm(Me.Tag).Tag = Me.Tag
End Sub

'Add new record to the recordset
Public Sub TBNew()
    
    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, , , , True, True, , , True, True, , , , True
    txtItemNo.BackColor = &HE0FFFF
    Mode = AddNewEdit
    
    If rsHeader.State <> adStateOpen Then
        OpenNewConnection connHeader
        OpenNewConnection connC
        OpenRecordsetWithCN rsC, "*", "Supply_C", connC, "WHERE 1 = 0"
        OpenRecordsetWithCN rsHeader, "*", "Supply", connHeader, "WHERE 1 = 0"
        SetDataSource
        SetDataField
    Else
        vBM = rsHeader.Bookmark
    End If
    
    rsHeader.AddNew
    rsHeader!cCompanyID = COID
    rsHeader!cType = "Office"
    
    Set FrmName = Me
    FormLocking False
    ClrRequired &HC0&
    cmdHistory.Enabled = False
    SSTab1.ActiveTab = 0
    SSTab2.ActiveTab = 0
    txtItemNo.SetFocus

End Sub

'Undo all changes to the recordset
Public Sub TBUndoAll()
On Error GoTo ErrorHandler

    Mode = Normal
    
    If rsHeader.Status = adRecNew Then TBUndoCurrent
    
    rsHeader.CancelBatch adAffectAll
    rsC.CancelBatch adAffectAll
    
    UnbindControls
    
    If rsHeader.RecordCount <> 0 Then rsHeader.Bookmark = vBM
    
    Set FrmName = Me
    FormLocking True
    cmdHistory.Enabled = True
    dtbFrom.Enabled = True
    dtbTo.Enabled = True
    
    If rsHeader.RecordCount <> 0 Then
        BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, lACNew, lACEdit, lACDelete, , , , , , , True, True, , True
    Else
        RSZero
        Mode = Find
    End If
    
    sbRS.Panels(2) = ""

    SetDataSource
    SetDataField

ErrorHandler:
    If err.Number = -2147217885 Then
        Resume Next
    ElseIf err.Number = -2147217842 Then 'Operation was cancelled. (Error returned by ITGDateBox)
        TBUndoAll
    End If

End Sub

'Undo changes on the current record
Public Sub TBUndoCurrent()
On Error GoTo ErrorHandler

    GetChild
    If rsHeader.Status = adRecNew Then
        rsC.CancelBatch adAffectAll
        rsHeader.CancelUpdate
    Else
        rsHeader.CancelBatch adAffectCurrent
        rsC.CancelBatch adAffectAll
    End If
   
    If rsHeader.RecordCount = 0 Then RSZero

ErrorHandler:
    If err.Number = -2147217885 Then
        Resume Next
    ElseIf err.Number = -2147217842 Then 'Operation was cancelled. (Error returned by ITGDateBox)
        TBUndoCurrent
    End If

End Sub

'Save all changes
Public Sub TBSave()
Dim OKUpdate As Boolean
On Error GoTo ErrHandler

    'Audit Trail
    lBoolean = False
    If rsHeader.Status = adRecNew Then lBoolean = True
    

    
    If Not MandatoryOK Then Exit Sub
        
    OKUpdate = False
    cn.BeginTrans
    connHeader.BeginTrans
    connC.BeginTrans
    
    rsHeader.UpdateBatch adAffectAll
    rsC.UpdateBatch adAffectAll
    
    cn.CommitTrans
    connHeader.CommitTrans
    connC.CommitTrans
    OKUpdate = True
    
    Set FrmName = Me
    FormLocking True
    cmdHistory.Enabled = True
    dtbFrom.Enabled = True
    dtbTo.Enabled = True
    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, lACNew, lACEdit, lACDelete, , , , , , , True, True, , True
    Mode = Normal
    

        MsgBox "Record/s successfully saved.", vbInformation, "ComUnion"
    SetDataSource

    
    'Audit trail
    UpdateLogFile "Supply", Trim(txtItemNo), IIf(lBoolean, "Inserted", "Updated")
    lblHeader = rsHeader!cSupplyNo & " - " & rsHeader!cDesc & ""
    lblDetails = "Type " & "Balance: " & Format(rsHeader!nBalance, "#,##0.#0") & " " & rsHeader!cUnit & ""
    sbRS.Panels(2) = ""

ErrHandler:
    If err.Number = -2147217885 Then
        Resume Next
    ElseIf err.Number = -2147217864 Then
        OKUpdate = True
        cn.RollbackTrans
        connHeader.RollbackTrans
        connC.RollbackTrans
        MsgBox "Record cannot be updated. Some values may have been changed by other user/s since last read." & vbCr & _
                "Records will be automatically refreshed. All changes made to the record will be gone upon refresh.", vbInformation, "ComUnion"
        vBookMark = rsHeader.Bookmark
        UnbindControls
        rsHeader.Requery
        rsC.Requery
        BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, lACNew, lACEdit, lACDelete, , , , , , , True, True, , True
        Mode = Normal
        If rsHeader.RecordCount <> 0 Then
            Set FrmName = Me
            FormLocking True
            cmdHistory.Enabled = True
            dtbFrom.Enabled = True
            dtbTo.Enabled = True
            SetDataField
            SetDataSource
            rsHeader.Bookmark = vBookMark
        Else
            RSZero
        End If
    End If
    If Not OKUpdate Then
        MsgBox "Transaction update failed.", vbInformation, "ComUnion"
        cn.RollbackTrans
        connHeader.RollbackTrans
        connC.RollbackTrans
        ErrorLog err.Number, err.Description, Me.Name 'Error log
    End If
    
End Sub

'Sets the form & recorset to add/edit mode
Public Sub TBEdit()
    Mode = AddNewEdit
    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, , , , True, True, , , True, True, , , , True
    Set FrmName = Me
    FormLocking False
    ClrRequired &HC0&
    cmdHistory.Enabled = False
    txtItemNo.Locked = True
    SSTab2.ActiveTab = 0
    SSTab1.ActiveTab = 0
    txtDesc.SetFocus
    vBM = rsHeader.Bookmark
End Sub

'Delete record
Public Sub TBDelete()
On Error GoTo ErrorHandler
    
    sID = Trim(txtItemNo)
    
    If rsHeader.RecordCount = 0 Then Exit Sub
    
    Dim rs As New ADODB.Recordset
    Set rs = Nothing
    rs.Open "SELECT A.cItemNo FROM VItem A, Item B WHERE A.cCompanyID = B.cCompanyID and A.cItemNo = '" & Trim(txtItemNo) & "' ", cn, adOpenStatic
    
    If rs.RecordCount <> 0 Then
        MsgBox "Unable to delete. Referenced by other transactions.", vbExclamation, "ALERT"
        rs.Close
        GoTo ErrorHandler
    End If
    
    If MsgBox("Are you sure you want to delete this record?", vbQuestion + vbYesNo, "ComUnion") = vbNo Then Exit Sub
    
    GetChild
    If rsC.RecordCount <> 0 Then
        rsC.MoveFirst
        Do Until rsC.RecordCount = 0
            rsC.Delete adAffectCurrent
            If rsC.RecordCount <> 0 Then rsC.MoveFirst
        Loop
    End If
    
    'Audit trail
    UpdateLogFile "Supply", Trim(txtItemNo), "Deleted"

    rsHeader.Delete adAffectCurrent
    rsC.UpdateBatch adAffectAll
    rsHeader.UpdateBatch adAffectAll
    


    
    TBPrevRec

    Mode = Normal
    
    If rsHeader.RecordCount = 0 Then
        RSZero
    Else
        vBookMark = rsHeader.Bookmark
        UnbindControls
        SetDataSource
        SetDataField
        rsHeader.Bookmark = vBookMark
    End If

ErrorHandler:
    If err.Number = -2147217885 Then
        Resume Next
    ElseIf err.Number = -2147217864 Then
        cn.Execute "DELETE Supply_C WHERE cSupplyNo = '" & sID & "' AND cCompanyID = '" & COID & "'"
        cn.Execute "DELETE Supply WHERE cSupplyNo = '" & sID & "' AND cCompanyID = '" & COID & "'"
        Resume Next
    End If

End Sub

'Search using the frmITGSearch
Public Sub TBFind()
    Mode = Find
    txtItemNo.Locked = True
    frmITGSearch.Show
End Sub

'Search using the recordset primary key
Public Sub TBFindPrimary()
Dim sTemp As String
If Mode = Find Then
    FormWaitShow App.Path & "\Transmit.avi", "Loading data . . ."
        
    OpenNewConnection connHeader
    OpenNewConnection connC
        
    Set rsHeader = Nothing
    Set rsC = Nothing
    Set rsHeader = New ADODB.Recordset
    Set rsC = New ADODB.Recordset
    
    sTemp = Trim$(GetSearchString)
    If sTemp = "ERROR" Then
        MsgBox "Only Allows A - Z, 0 - 9, '.', ',' and %(wildcard)", vbExclamation, ""
        BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, lACNew, , , , , , , , , True, , , True
        txtItemNo.Locked = False
        txtItemNo.SetFocus
        Exit Sub
    End If
        
    OpenRecordsetWithCN rsHeader, "*", "Supply", connHeader, IIf(sTemp = "", "", " WHERE " & sTemp)
    OpenRecordsetWithCN rsC, "*", "Supply_C", connC
    
    Set FrmName = Me
    FormLocking True
    cmdHistory.Enabled = True
    dtbFrom.Enabled = True
    dtbTo.Enabled = True
    
    If rsHeader.RecordCount = 0 Then
        FormWaitHide
        MsgBox "No matching record/s found.", vbInformation, "ComUnion Search"
        RSZero
        FormSearch True
        SearchObj True
        Mode = Find
        Exit Sub
    End If
    SetDataSource
    SetDataField
    txtItemNo.BackColor = &HE0FFFF
    Mode = Normal
    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, lACNew, lACEdit, lACDelete, , , , , , , True, True, , True
    
    FormWaitHide
Else
    RSZero
    FormSearch True
    SearchObj True
    Mode = Find

End If

End Sub
'Reload menu buttons (do not delete this sub)
Public Sub TBBitReload()
    BitVisible ITGLedgerMain.tbrMain, True
    ITGLedgerMain.tbrMain.Buttons("btnFind").ButtonMenus("btnFindP").Enabled = True
    BitReload ITGLedgerMain, Me, ITGLedgerMain.tbrMain, sBit
    Set FrmName = Me
    dtgName = dtgC.Name
End Sub

Public Sub TBBrowseImage()
    
    ' Browse for picture then load on PictureBox
    cd.Filter = "Bitmap (*.bmp)|*.bmp| JPEG (*.jpg;*.jpeg)|*.jpg;*.jpeg| GIF (*.gif)|*.gif| All (*.bmp;*.jpg;*.jpeg;*.gif)|*.bmp;*.jpg;*.jpeg;*.gif"
    cd.FilterIndex = 4
    cd.FileName = ""
    cd.ShowOpen

    sTempPath = Trim$(cd.FileName)
    If (Trim(sTempPath) <> "") Then
        iPhoto.Picture = LoadPicture(sTempPath)
    Else
        iPhoto.Picture = Nothing
        Exit Sub
    End If

    If (iPhoto.Picture <> 0) Then
        stm.Type = adTypeBinary
        stm.Open
        stm.LoadFromFile sTempPath
        rsHeader!iPhoto = stm.Read
        stm.Close
        Set stm = Nothing
    Else
        rsHeader!iPhoto = Null
    End If

End Sub

'Close active window
Public Sub TBCloseWindow()
    Unload Me
End Sub

'Move first
Public Sub TBFirstRec()
    If rsHeader.State <> adStateOpen Then Exit Sub
    MoveFirst rsHeader

End Sub

'Move previous
Public Sub TBPrevRec()
    If rsHeader.State <> adStateOpen Then Exit Sub
    MovePrevious rsHeader


End Sub

'Move next
Public Sub TBNextRec()
    If rsHeader.State <> adStateOpen Then Exit Sub
    MoveNext rsHeader
      

End Sub

'Move last
Public Sub TBLastRec()
    If rsHeader.State <> adStateOpen Then Exit Sub
    MoveLast rsHeader

End Sub

'Add new line to the detail recordset
Public Sub TBNewLine()
    
    If rsHeader!cSupplyNo = "" Then Exit Sub
    
    If dtgName = "dtgC" Then
        rsC.AddNew
        rsC!cCompanyID = COID
        rsC!cSupplyNo = Trim(txtItemNo)
        GetChild
        dtgC.SetFocus
        dtgC.Col = 0
        rsC.MoveLast
    End If

End Sub

'Delete line in the detail recordset
Public Sub TBDeleteLine()
On Error GoTo ErrorHandler

    If dtgName = "dtgC" Then
        If rsC.RecordCount = 0 Then Exit Sub
        vBookMark = dtgC.Bookmark
        GetChild
        dtgC.Bookmark = vBookMark
        rsC.Delete adAffectCurrent
    End If
    GetChild

ErrorHandler:
    If err.Number = -2147217885 Then
        Resume Next
    End If

End Sub

'Undo all
Public Sub TBUndoLineAll()
On Error GoTo ErrorHandler

ErrorHandler:
    If err.Number = -2147217885 Then
        Resume Next
    End If
End Sub

'Undo current line
Public Sub TBUndoLineCurrent()
    MsgBox "Unavailable on " & Me.Name
End Sub

'Post current record
Public Sub TBPostRecord()
    MsgBox "Unavailable on " & Me.Name
End Sub

'Cancel current record
Public Sub TBCancelRecord()
    MsgBox "Unavailable on " & Me.Name
End Sub

Public Sub TBClearImage()
    iPhoto.Picture = Nothing
    rsHeader!iPhoto = Null
End Sub

'Print
Public Sub TBPrintRecord()
    MsgBox "Unavailable on " & Me.Name
End Sub

'Sets the data source of the controls
Sub SetDataSource()
    Set FrmName = Me
    BindControls rsHeader
    Set dtgC.DataSource = rsC
    Set dtgList.DataSource = rsHeader
   
    
   
End Sub
'Set the label of the 10 groups in group tab
Private Sub SetGroupName()
Dim s(1 To 10) As String

    s(1) = LoadOption("ITM_CAT_GRP1", 4)
    s(2) = LoadOption("ITM_CAT_GRP2", 4)
    s(3) = LoadOption("ITM_CAT_GRP3", 4)
    s(4) = LoadOption("ITM_CAT_GRP4", 4)
    s(5) = LoadOption("ITM_CAT_GRP5", 4)
    s(6) = LoadOption("ITM_CAT_GRP6", 4)
    s(7) = LoadOption("ITM_CAT_GRP7", 4)
    s(8) = LoadOption("ITM_CAT_GRP8", 4)
    s(9) = LoadOption("ITM_CAT_GRP9", 4)
    s(10) = LoadOption("ITM_CAT_GRP10", 4)
    
    txtG1.Label = IIf((s(1) = ""), txtG1.Label, s(1))
    txtG2.Label = IIf((s(2) = ""), txtG2.Label, s(2))
    txtG3.Label = IIf((s(3) = ""), txtG3.Label, s(3))
    txtG4.Label = IIf((s(4) = ""), txtG4.Label, s(4))
    txtG5.Label = IIf((s(5) = ""), txtG5.Label, s(5))
    txtG6.Label = IIf((s(6) = ""), txtG6.Label, s(6))
    txtG7.Label = IIf((s(7) = ""), txtG7.Label, s(7))
    txtG8.Label = IIf((s(8) = ""), txtG8.Label, s(8))
    txtG9.Label = IIf((s(9) = ""), txtG9.Label, s(9))
    txtG10.Label = IIf((s(10) = ""), txtG10.Label, s(10))

End Sub
    
'Sets the data field for every bounded controls
Sub SetDataField()
    With rsHeader
        txtItemNo.DataField = !cSupplyNo
        txtPartNo.DataField = !cPartNo
        txtPCCode.DataField = !cPCCode
        txtDesc.DataField = !cDesc
        txtType.DataField = !cType
        txtUnit.DataField = !cUnit
        txtWH.DataField = !cWH
        txtDept.DataField = !cDepartment
        txtSRP.DataField = !nSRPrice
        txtPQty.DataField = !cPQty
        txtPCost.DataField = !nPCost
        txtSUnit.DataField = !cSUnit
        txtSQty.DataField = !cSQty
        txtSCost.DataField = !nSMCost
        txtSSRP.DataField = !nSSRP
        txtMinimum.DataField = !nMinimum
        txtMaximum.DataField = !nMaximum
        txtReorder.DataField = !nReorderQty
        txtReorderPt.DataField = !nReorderPt
        txtLeadTime.DataField = !nLeadTime
        txtG1.DataField = !cGroup1
        txtG2.DataField = !cGroup2
        txtG3.DataField = !cGroup3
        txtG4.DataField = !cGroup4
        txtG5.DataField = !cGroup5
        txtG6.DataField = !cGroup6
        txtG7.DataField = !cGroup7
        txtG8.DataField = !cGroup8
        txtG9.DataField = !cGroup9
        txtG10.DataField = !cGroup10
        txtCBM.DataField = !nCBM
        txtGrossWeight.DataField = !nGrossWeight
        txtNetWeight.DataField = !nNetWeight
        txtMasterBox.DataField = !nMasterBox
        txtArea.DataField = !nArea
        txtLength.DataField = !nLength
        txtWidth.DataField = !nWidth
        txtHeight.DataField = !nHeight
    End With
End Sub


Private Sub iPhoto_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
    If Mode <> AddNewEdit Then Exit Sub
    If Button = 2 Then PopupMenu ITGLedgerMain.mnuImage
End Sub

Private Sub iPhoto_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
    If Mode = AddNewEdit Then
        iPhoto.ToolTipText = "Right click to add/remove image"
    Else
        iPhoto.ToolTipText = ""
    End If
End Sub

Private Sub rsHeader_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
On Error GoTo ErrorHandler
    
    If Not (rsHeader.EOF) Or Not (rsHeader.BOF) Then
        lblHeader = rsHeader!cSupplyNo & " - " & rsHeader!cDesc & ""
        lblDetails = "Type: " & "Balance: " & Format(rsHeader!nBalance, "#,##0.#0") & " " & rsHeader!cUnit & ""
        sbRS.Panels(1) = "Record: " & IIf((rsHeader.AbsolutePosition = -2), "0", rsHeader.AbsolutePosition) & "/" & rsHeader.RecordCount

        If rsHeader.Status <> adRecNew Then
            txtItemNo.Locked = True
        Else
            txtItemNo.Locked = False
        End If

        If Mode = AddNewEdit Then
            Select Case rsHeader.Status
                Case adRecNew
                    sbRS.Panels(2) = "New"
                Case adRecModified
                    sbRS.Panels(2) = "Modified"
                Case Else
                    sbRS.Panels(2) = ""
            End Select
        Else
            sbRS.Panels(2) = ""
        End If

        GetChild
        ShowProductBalance
        
    Else
        lblHeader = "Supply ID - Description"
        lblDetails = "Supply Type, Balance"
        sbRS.Panels(1) = "Record: 0/0"
        sbRS.Panels(2) = ""
        txtItemNo.Locked = False
    End If

    If Mode = AddNewEdit Then
        dtgC.Refresh
    End If

    Set dtgHistory.DataSource = Nothing
    dtgHistory.Refresh
    dtbFrom.Text = "__/__/____"
    dtbTo.Text = "__/__/____"
    
    'lvwList.ListItems.Clear

ErrorHandler:
    'Err.Number -2147217885
    'Description - Row handle referred to a deleted row or a row marked for deletion.
    If err.Number = -2147217885 Then
        Resume Next
    End If
    
End Sub

Private Sub Timer1_Timer()
    If Mode = AddNewEdit Then
        SSTab2.TabEnabled(1) = False
    Else
        SSTab2.TabEnabled(1) = True
    End If
End Sub

Private Sub txtG1_Change()
    txtG1D = ""
    txtG1D = GetValueFrTable("cDescription", "GROUPINGS", "cID = '" & Trim(txtG1) & "' AND cGroupNo = '1'")
End Sub

Private Sub txtG1_LostFocus()
    If Mode <> AddNewEdit Then Exit Sub
    If Trim(txtG1D) = "" And Trim(txtG1) <> "" Then cmdPickG1_Click
End Sub

Private Sub txtG10_Change()
    txtG10D = ""
    txtG10D = GetValueFrTable("cDescription", "GROUPINGS", "cID = '" & Trim(txtG10) & "' AND cGroupNo = '10'")
End Sub

Private Sub txtG10_LostFocus()
    If Mode <> AddNewEdit Then Exit Sub
    If Trim(txtG10D) = "" And Trim(txtG10) <> "" Then cmdPickG10_Click
End Sub

Private Sub txtG2_Change()
    txtG2D = ""
    txtG2D = GetValueFrTable("cDescription", "GROUPINGS", "cID = '" & Trim(txtG2) & "' AND cGroupNo = '2'")
End Sub

Private Sub txtG2_LostFocus()
    If Mode <> AddNewEdit Then Exit Sub
    If Trim(txtG2D) = "" And Trim(txtG2) <> "" Then cmdPickG2_Click
End Sub

Private Sub txtG3_Change()
    txtG3D = ""
    txtG3D = GetValueFrTable("cDescription", "GROUPINGS", "cID = '" & Trim(txtG3) & "' AND cGroupNo = '3'")
End Sub

Private Sub txtG3_LostFocus()
    If Mode <> AddNewEdit Then Exit Sub
    If Trim(txtG3D) = "" And Trim(txtG3) <> "" Then cmdPickG3_Click
End Sub

Private Sub txtG4_Change()
    txtG4D = ""
    txtG4D = GetValueFrTable("cDescription", "GROUPINGS", "cID = '" & Trim(txtG4) & "' AND cGroupNo = '4'")
End Sub

Private Sub txtG4_LostFocus()
    If Mode <> AddNewEdit Then Exit Sub
    If Trim(txtG4D) = "" And Trim(txtG4) <> "" Then cmdPickG4_Click
End Sub

Private Sub txtG5_Change()
    txtG5D = ""
    txtG5D = GetValueFrTable("cDescription", "GROUPINGS", "cID = '" & Trim(txtG5) & "' AND cGroupNo = '5'")
End Sub

Private Sub txtG5_LostFocus()
    If Mode <> AddNewEdit Then Exit Sub
    If Trim(txtG5D) = "" And Trim(txtG5) <> "" Then cmdPickG5_Click
End Sub

Private Sub txtG6_Change()
    txtG6D = ""
    txtG6D = GetValueFrTable("cDescription", "GROUPINGS", "cID = '" & Trim(txtG6) & "' AND cGroupNo = '6'")
End Sub

Private Sub txtG6_LostFocus()
    If Mode <> AddNewEdit Then Exit Sub
    If Trim(txtG6D) = "" And Trim(txtG6) <> "" Then cmdPickG6_Click
End Sub

Private Sub txtG7_Change()
    txtG7D = ""
    txtG7D = GetValueFrTable("cDescription", "GROUPINGS", "cID = '" & Trim(txtG7) & "' AND cGroupNo = '7'")
End Sub

Private Sub txtG7_LostFocus()
    If Mode <> AddNewEdit Then Exit Sub
    If Trim(txtG7D) = "" And Trim(txtG7) <> "" Then cmdPickG7_Click
End Sub

Private Sub txtG8_Change()
    txtG8D = ""
    txtG8D = GetValueFrTable("cDescription", "GROUPINGS", "cID = '" & Trim(txtG8) & "' AND cGroupNo = '8'")
End Sub

Private Sub txtG8_LostFocus()
    If Mode <> AddNewEdit Then Exit Sub
    If Trim(txtG8D) = "" And Trim(txtG8) <> "" Then cmdPickG8_Click
End Sub

Private Sub txtG9_Change()
    txtG9D = ""
    txtG9D = GetValueFrTable("cDescription", "GROUPINGS", "cID = '" & Trim(txtG9) & "' AND cGroupNo = '9'")
End Sub

Private Sub txtG9_LostFocus()
    If Mode <> AddNewEdit Then Exit Sub
    If Trim(txtG9D) = "" And Trim(txtG9) <> "" Then cmdPickG9_Click
End Sub

Private Sub txtItemNo_LostFocus()
    'Does Code Already exists
    If Mode = AddNewEdit Then
        If Trim(txtItemNo) = "" Then
            MsgBox "Empty primary input.", vbInformation, "ComUnion"
            If FrmName.Name <> Me.Name Then PreviousTab frmComUnionMenuTab
            txtItemNo.SetFocus
        Else
            If rsHeader.Status <> adRecNew Then Exit Sub
            txtItemNo = Trim(txtItemNo)
            If IDExisting(rsHeader, "cSupplyNo", "Supply", Trim(rsHeader!cSupplyNo)) Then
                MsgBox "Supply ID already exists.", vbInformation, "ComUnion"
                If FrmName.Name <> Me.Name Then PreviousTab frmComUnionMenuTab
                txtItemNo.SetFocus
            Else
                txtPartNo = Trim(txtItemNo)
            End If
        End If
    End If
End Sub

Private Sub txtPCCode_Change()
    txtPCDesc = ""
    txtPCDesc = GetValueFrTable("cDescription", "PROFITCENTER", "cPCCode = '" & Trim(txtPCCode) & "'")
End Sub

Private Sub txtType_Change()
    If Trim(txtType) <> "" Or txtType <> vbNullString Then
        cboType = Trim(txtType)
    Else
        cboType.ListIndex = -1
    End If
End Sub

'Check if all mandatory fields are complete
Function MandatoryOK() As Boolean
    
    MandatoryOK = True
    
    If Trim(txtItemNo) = "" Then
        MandatoryOK = False
        MsgBox "Field 'Supply ID' is mandatory. Null value is not allowed.", vbInformation, "ComUnion"
        txtItemNo.SetFocus
        Exit Function
    End If
    
    If rsHeader.Status = adRecNew Then
        If IDExisting(rsHeader, "cSupplyNo", "Supply", Trim(rsHeader!cSupplyNo)) Then
            MandatoryOK = False
            MsgBox "Supply ID already exists.", vbInformation, "ComUnion"
            txtItemNo.SetFocus
            Exit Function
        End If
    End If
        
    If Trim(txtDesc) = "" Then
        MandatoryOK = False
        MsgBox "Field 'Supply Description' is mandatory. Null value is not allowed", vbInformation, "ComUnion"
        txtDesc.SetFocus
        Exit Function
    ElseIf Trim(txtUnit) = "" Then
        MandatoryOK = False
        MsgBox "Field 'Unit' is mandatory. Null value is not allowed", vbInformation, "ComUnion"
        txtUnit.SetFocus
        Exit Function
    ElseIf Trim(txtWH) = "" Then
        MandatoryOK = False
        MsgBox "Field 'Warehouse' is mandatory. Null value is not allowed", vbInformation, "ComUnion"
        txtWH.SetFocus
        Exit Function
    ElseIf Trim(txtType) = "" Then
        MandatoryOK = False
        MsgBox "Field 'Type' is mandatory. Null value is not allowed", vbInformation, "ComUnion"
        cboType.SetFocus
        Exit Function
    ElseIf CDbl(txtSRP) = 0 Then
        MandatoryOK = False
        MsgBox "Field 'SRP' is mandatory. Null or zero value is not allowed", vbInformation, "ComUnion"
        txtSRP.SetFocus
        Exit Function
    End If
    
    GetChild
      
    If rsC.RecordCount <> 0 Then rsC.MoveFirst
    Do Until rsC.EOF
        If rsC.Status = (adRecNew) Or rsC.Status = (adRecModified) Then
            If IsNull(rsC!cCompItemNo) Then
                rsC.Delete
            ElseIf Trim(rsC!cCompItemNo) = "" Then
                rsC.Delete
            Else
                rsC.MoveNext
            End If
        Else
            rsC.MoveNext
        End If
    Loop

    GetChild
    
End Function

'Filter detail recordset to header's primary
Private Sub GetChild()
    rsC.Filter = "cItemNo = '" & Trim(rsHeader!cSupplyNo) & "'"
End Sub

'Sets the form if record number is zero
Private Sub RSZero()
    lblHeader = "Supply ID - Description"
    lblDetails = "Supply Type, Balance"
    sbRS.Panels(1) = "Record: 0/0"
    sbRS.Panels(2) = ""
    
    Set dtgC.DataSource = Nothing
    dtgC.Refresh
    
    Set FrmName = Me
    UnbindControls
    TextClearing
    FormLocking True
    
    Set dtgHistory.DataSource = Nothing
    dtgHistory.Refresh
    dtbFrom.Text = "__/__/____"
    dtbTo.Text = "__/__/____"
    
    If rsHeader.State = adStateOpen Then rsHeader.Close
    If rsC.State = adStateOpen Then rsC.Close
    
    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, lACNew, , , , , , , , , True, , , True
    
    txtItemNo.Locked = False
    txtItemNo.SetFocus
    
    Mode = Find
End Sub

Sub SearchObj(lEnable As Boolean)
    cmdPickWH.Enabled = lEnable
    cboType.Enabled = lEnable
    cmdPickG1.Enabled = lEnable
    cmdPickG2.Enabled = lEnable
    cmdPickG3.Enabled = lEnable
    cmdPickG4.Enabled = lEnable
    cmdPickG5.Enabled = lEnable
    cmdPickG6.Enabled = lEnable
    cmdPickG7.Enabled = lEnable
    cmdPickG8.Enabled = lEnable
    cmdPickG9.Enabled = lEnable
    cmdPickG10.Enabled = lEnable
End Sub

Private Sub txtWH_LostFocus()
    If Mode <> AddNewEdit Then Exit Sub
    If Trim(txtWH) = "" Then Exit Sub
    If GetValueFrTable("cWH", "WHSE", "cWH = '" & Trim(txtWH) & "'") = "" Then cmdPickWH_Click
End Sub

'Dummy recordset for component items (ITEM_C)
Private Sub DummyCRS(rsFrom As ADODB.Recordset)
Dim strPD As String

    Set rsDummyC = New Recordset
    Set rs = New Recordset

    With rsDummyC.Fields
        .Append "cSupplyNo", adBSTR, , adFldIsNullable
        .Append "cCompItemNo", adBSTR, , adFldIsNullable
        .Append "cCompItemDesc", adBSTR, , adFldIsNullable
        .Append "nQty", adDouble, , adFldIsNullable
        .Append "PD", adBSTR, , adFldIsNullable
        .Append "SRP", adDouble, , adFldIsNullable
        .Append "WSP", adDouble, , adFldIsNullable
    End With
   
    rsDummyC.Open
    
    Set rs = rsFrom.Clone
    
    Set rs = Nothing
    
    Set dtgC.DataSource = Nothing
    Set dtgC.DataSource = rsC
    
End Sub

'Pass dummy recordset values to the real recordset
Private Sub DummyToReal()
    
    rsC.Filter = "cSupplyNo = '" & Trim(rsHeader!cSupplyNo) & "'"
    rsDummyC.Filter = "cSupplyNo = '" & Trim(rsHeader!cSupplyNo) & "'"
    
    If rsC.RecordCount <> 0 Then
        rsC.MoveFirst
        Do Until rsC.RecordCount = 0
            rsC.Delete adAffectCurrent
            If rsC.RecordCount <> 0 Then rsC.MoveFirst
        Loop
    End If
    rsC.Filter = "cSupplyNo = '" & Trim(rsHeader!cSupplyNo) & "'"
    
    Do While Not rsDummyC.EOF
        rsC.AddNew
        rsC!cCompanyID = COID
        rsC!cSupplyNo = Trim(rsDummyC!cSupplyNo) & ""
        rsC!cCompItemNo = Trim(rsDummyC!cCompItemNo) & ""
        rsC!cCompItemDesc = Trim(rsDummyC!cCompItemDesc) & ""
        rsC!nQty = CDbl(rsDummyC!nQty)
        rsDummyC.MoveNext
    Loop

End Sub

'Get item values from item table
Private Sub GetItemValues(oRS As Recordset, dtg As DataGrid, strItemNo As String)
    
    If dtg.Name = "dtgC" Then
        oRS!cCompItemDesc = Trim(GetValueFrTable("cDesc", "Supply", "cSupplyNo = '" & Trim(strItemNo) & "'")) & ""
    End If
    cString = Trim(GetValueFrTable("cPDCode", "Supply", "cSupplyNo = '" & Trim(strItemNo) & "'")) & ""
    dtg.Columns(2).Value = Trim(GetValueFrTable("cDescription", "CLASSIFICATION", "cClassCode = '" & Trim(cString) & "' AND cType = 'PD'")) & ""
    
    If dtg.Name = "dtgC" Then
        dtg.Columns(4).Value = Trim(GetValueFrTable("nSRPrice", "Supply", "cSupplyNo = '" & Trim(strItemNo) & "'")) & ""
        dtg.Columns(5).Value = Trim(GetValueFrTable("nWSPrice", "Supply", "cSupplyNo = '" & Trim(strItemNo) & "'")) & ""
    End If
    
End Sub
Private Function GetSearchString() As String
On Error GoTo ErrorHandler
Dim sWhere As String

    GetSearchString = True

    If Trim$(txtItemNo.Text) <> "" Then
        sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cSupplyNo LIKE '" & Trim$(txtItemNo.Text) & "%'"
    End If
    
    If Trim$(txtDesc.Text) <> "" Then
        sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cDesc LIKE '" & Trim$(txtDesc.Text) & "%'"
    End If
    
    If Trim$(txtWH.Text) <> "" Then
        sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cWH LIKE '" & Trim$(txtWH.Text) & "%'"
    End If
    
    If Trim(txtType.Text) <> "" Then
        sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cType LIKE '" & Trim$(txtType.Text) & "%'"
    End If
    
    If Trim(Me.txtG1.Text) <> "" Then
        sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cGroup1 LIKE '" & Trim$(txtG1.Text) & "%'"
    End If
    If Trim(Me.txtG2.Text) <> "" Then
        sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cGroup2 LIKE '" & Trim$(txtG2.Text) & "%'"
    End If
    If Trim(Me.txtG3.Text) <> "" Then
        sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cGroup3 LIKE '" & Trim$(txtG3.Text) & "%'"
    End If
    If Trim(Me.txtG4.Text) <> "" Then
        sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cGroup4 LIKE '" & Trim$(txtG4.Text) & "%'"
    End If
    If Trim(Me.txtG5.Text) <> "" Then
        sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cGroup5 LIKE '" & Trim$(txtG5.Text) & "%'"
    End If
    If Trim(Me.txtG6.Text) <> "" Then
        sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cGroup6 LIKE '" & Trim$(txtG6.Text) & "%'"
    End If
    If Trim(Me.txtG7.Text) <> "" Then
        sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cGroup7 LIKE '" & Trim$(txtG7.Text) & "%'"
    End If
    If Trim(Me.txtG8.Text) <> "" Then
        sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cGroup8 LIKE '" & Trim$(txtG8.Text) & "%'"
    End If
    If Trim(Me.txtG9.Text) <> "" Then
        sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cGroup9 LIKE '" & Trim$(txtG9.Text) & "%'"
    End If
    If Trim(Me.txtG10.Text) <> "" Then
        sWhere = sWhere & IIf(Trim$(sWhere) = "", "", " AND ") & " cGroup10 LIKE '" & Trim$(txtG10.Text) & "%'"
    End If
    
    GetSearchString = Trim$(sWhere)

    Exit Function
ErrorHandler:
    GetSearchString = "ERROR"
End Function
'Show the balances per Supply code
'Binding of the textboxex was disabled
Private Sub ShowProductBalance()
Dim rsBalance As New Recordset

    If Mode = AddNewEdit Then Exit Sub
    
    sSQL = "SELECT *, ISNULL((nInitial - nOutgoing + nIncoming + nAdjustment), 0) AS nBalance " & _
            "FROM V_SuppliesBalanceInquiry_Module WHERE cSupplyNo = '" & rsHeader!cSupplyNo & "' AND cCompanyID = '" & COID & "'"
    rsBalance.Open sSQL, cn, adOpenForwardOnly, adLockReadOnly
    
    txtInitial = 0
    txtPurchase = 0
    txtIssues = 0
    txtAdjustment = 0
    txtBalance = 0
    
    If rsBalance.RecordCount <> 0 Then
        txtInitial = rsBalance!nInitial
        txtPurchase = rsBalance!nIncoming
        txtIssues = rsBalance!nOutgoing
        txtAdjustment = rsBalance!nAdjustment
        txtBalance = rsBalance!nBalance
    End If
    
    Set rsBalance = Nothing
    
End Sub

'Show the balances per product code per warehouse
'Binding of the textboxex was disabled
Private Sub ShowProductBalance_WH()
Dim rsBalance As New Recordset
    
    lvwList.ListItems.Clear

    If Mode = AddNewEdit Then Exit Sub
    
    sSQL = "SELECT A.cCompanyID, A.cItemNo, A.cWH, ISNULL(B.nInitial, 0) AS nInitial, A.nIncoming, A.nOutgoing, " & _
            "A.nRetSales, A.nRetPur, A.nIssues, A.nBack, A.nProdOut, " & _
            "A.nProdIn, A.nReserved, A.nAdjustment, A.nSampleDemo, " & _
            "(ISNULL(B.nInitial, 0) + A.nIncoming - A.nOutgoing + A.nRetSales - A.nRetPur - A.nIssues + " & _
            "A.nBack - A.nProdOut + A.nProdIn + A.nAdjustment - A.nSampleDemo) AS nBalance " & _
            "FROM V_ProductBalanceInquiry_WH A " & _
            "FULL OUTER JOIN ITEM_W B ON A.cCompanyID = B.cCompanyID AND A.cItemNo = B.cItemNo AND A.cWH = B.cWH " & _
            "WHERE A.cItemNo = '" & rsHeader!cItemNo & "' AND A.cCompanyID = '" & COID & "'" & _
            "GROUP BY A.cCompanyID, A.cItemNo, A.cWH, A.nIncoming, A.nOutgoing, A.nRetSales, A.nRetPur, A.nIssues, A.nBack, A.nProdOut, " & _
            "A.nProdIn , A.nReserved, A.nAdjustment, A.nSampleDemo, B.nInitial"
    rsBalance.Open sSQL, cn, adOpenForwardOnly, adLockReadOnly
    
    With rsBalance
        If .RecordCount > 0 Then
            Do Until rsBalance.EOF
                Set itmX = lvwList.ListItems.Add(, , Trim(!cWH))
                itmX.SubItems(1) = Format(!nInitial, "#,##0.#0")
                itmX.SubItems(2) = Format((!nIncoming - !nRetPur), "#,##0.#0")
                itmX.SubItems(3) = Format((!nOutgoing - !nRetSales), "#,##0.#0")
                itmX.SubItems(4) = Format(!nProdIn, "#,##0.#0")
                itmX.SubItems(5) = Format(!nProdOut, "#,##0.#0")
                itmX.SubItems(6) = Format(!nSampleDemo, "#,##0.#0")
                itmX.SubItems(7) = Format(!nIssues, "#,##0.#0")
                itmX.SubItems(8) = Format(!nBack, "#,##0.#0")
                itmX.SubItems(9) = Format(!nAdjustment, "#,##0.#0")
                itmX.SubItems(10) = Format(!nReserved, "#,##0.#0")
                itmX.SubItems(11) = Format(!nBalance, "#,##0.#0")
                rsBalance.MoveNext
            Loop
        Else
            Set itmX = lvwList.ListItems.Add(, , Trim(txtWH))
            itmX.SubItems(1) = Format(0, "#,##0.#0")
            itmX.SubItems(2) = Format(0, "#,##0.#0")
            itmX.SubItems(3) = Format(0, "#,##0.#0")
            itmX.SubItems(4) = Format(0, "#,##0.#0")
            itmX.SubItems(5) = Format(0, "#,##0.#0")
            itmX.SubItems(6) = Format(0, "#,##0.#0")
            itmX.SubItems(7) = Format(0, "#,##0.#0")
            itmX.SubItems(8) = Format(0, "#,##0.#0")
            itmX.SubItems(9) = Format(0, "#,##0.#0")
            itmX.SubItems(10) = Format(0, "#,##0.#0")
            itmX.SubItems(11) = Format(0, "#,##0.#0")
        End If
    End With
    Set rsBalance = Nothing
End Sub

'Public Sub ShowForm(sTranNo As String)
'    If Mode = Find Then
'
'        OpenNewConnection connHeader
'        OpenNewConnection connC
'
'        Set rsHeader = Nothing
'        Set rsC = Nothing
'        Set rsHeader = New ADODB.Recordset
'        Set rsC = New ADODB.Recordset
'
'        OpenRecordsetWithCN rsC, "*", "Supply_C", connC, "WHERE cSupplyNo = '" & Trim(sTranNo) & "'"
'        OpenRecordsetWithCN rsHeader, "*", "Supply", connHeader, "WHERE cSupplyNo = '" & Trim(sTranNo) & "'"
'
'        Set FrmName = Me
'        FormLocking True
'        cmdHistory.Enabled = True
'        dtbFrom.Enabled = True
'        dtbTo.Enabled = True
'
'        If rsHeader.RecordCount = 0 Then
'            FormWaitHide
'            MsgBox "No matching record/s found.", vbInformation, "ComUnion Search"
'            RSZero
'            FormSearch True
'            SearchObj True
'            Mode = Find
'            Exit Sub
'        End If
'            SetDataSource
'            SetDataField
'            txtItemNo.BackColor = &HE0FFFF
'            Mode = Normal
'            oBar.BitEnabled Me, ITGLedgerMain.tbrMain, lACNew, lACEdit, lACDelete, , , , , , , True, True, , True, True
'
'    End If
'End Sub
